home *** CD-ROM | disk | FTP | other *** search
/ AmigActive 22 / AACD 22.iso / AACD / Programming / powerd / lib / powerd.lha / powerd_ppc / UpperStr.ass < prev    next >
Encoding:
Text File  |  1980-10-23  |  324 b   |  23 lines
  1.  
  2. # UpperStr(r3:PTR TO CHAR)(PTR TO CHAR)
  3.  
  4.     .text
  5.     .global    _UpperStr
  6.  
  7. _UpperStr:
  8.     subi    r4,r3,1        # save for result
  9. .loop:    lbzu    r5,1(r4)
  10.     andi.    r5,r5,0xff
  11.     beq    .finish
  12.     cmplwi    r5,97
  13.     blt    .loop
  14.     cmplwi    r5,123
  15.     bgt    .loop
  16.     subi    r5,r5,32
  17.     stb    r5,0(r4)
  18.     b    .loop
  19. .finish:    blr
  20.  
  21.     .type    _UpperStr,@function
  22.     .size    _UpperStr,$-_UpperStr
  23.